← Index
NYTProf Performance Profile   
For svc/members/upsert
  Run on Tue Jan 13 11:50:22 2015
Reported on Tue Jan 13 12:09:46 2015

Filename(eval 3)[/usr/lib/x86_64-linux-gnu/perl/5.20/IO/Handle.pm:176]
StatementsExecuted 1 statements in 3µs
Eval Invoked At/usr/lib/x86_64-linux-gnu/perl/5.20/IO/Handle.pm line 176
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0sIO::Handle::::getlineIO::Handle::getline
0000s0sIO::Handle::::getlinesIO::Handle::getlines
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1sub getline {
2 @_ == 1 or croak 'usage: $io->getline()';
3 my $this = shift;
4 return scalar <$this>;
5}
6
7sub getlines {
8 @_ == 1 or croak 'usage: $io->getlines()';
9 wantarray or
10 croak 'Can\'t call $io->getlines in a scalar context, use $io->getline';
11 my $this = shift;
12 return <$this>;
13}
1413µs1; # return true for error checking
15
16;